 
C     $Id: dzero.F 17 2012-12-07 05:10:30Z wangsl2001@gmail.com $

      SubRoutine DZero(N, A)
      Implicit None
      Integer N
      Real*8 A(*)
      Integer I

C$OMP Parallel Do
C$OMP& Default(Shared), Private(I)
      Do I = 1, N
         A(I) = 0.0D0
      End Do
C$OMP End Parallel Do
      
      Return
      End
      

      SubRoutine AClear(N, A)
      Implicit None
      Integer N
      Real*8 A(*)
      Call DZero(N, A)
      Return
      End
